home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / gdscc.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  1.4 KB  |  37 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++Builder
  3. //Copyright (c) 1987, 1998 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------------
  6. #include <vcl.h>
  7. #pragma hdrstop
  8. //---------------------------------------------------------------------------
  9. USEDATAMODULE("DataMod.cpp", Data);
  10. USEFILE("readme.txt");
  11. USEFORM("..\..\..\..\ObjRepos\customdm.cpp", CustomerData); /* TDataModule: DesignClass */
  12. USEFORM("..\OBJREPOS\BASEMOD.cpp", Base);
  13. USEFORM("CustMod.cpp", Cust);
  14. USEFORM("HomeMod.cpp", Home);
  15. USEFORM("TermMod.cpp", Term);
  16. USERES("Gdscc.res");
  17. //---------------------------------------------------------------------------
  18. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  19. {
  20.    try
  21.    {
  22.         Application->Initialize();
  23.         Application->CreateForm(__classid(THome), &Home);
  24.     Application->CreateForm(__classid(TData), &Data);
  25.     Application->CreateForm(__classid(TCust), &Cust);
  26.     Application->CreateForm(__classid(TTerm), &Term);
  27.     Application->CreateForm(__classid(TCustomerData), &CustomerData);
  28.     Application->Run();
  29.    }
  30.    catch (Exception &exception)
  31.    {
  32.         Application->ShowException(&exception);
  33.    }
  34.         return 0;
  35. }
  36. //---------------------------------------------------------------------------
  37.